Rem Implementierung der Steward Karte. OpenDoor kehrt ohne Fehler zurueck, alle anderen Methoden
Rem werfen einen Fehler

#Include StewardCard.DEF
#Include ../PassengerCard/PassengerCard.DEF

Command &H80 &H40 OpenDoor( roomnumber as Integer, travelName as String*25, currentTime as Date )

End Command

Command &H80 &H02 GetCardData( data as Travel )

  data.CustomerForeName = "Steward"
  data.CustomerName = "Card"

End Command

Command &H80 &H00 PersonaliseCard( data as Travel )
  SW1SW2 = swStewardCard
End Command

Command &H80 &H04 ResetCardData ()
  SW1SW2 = swStewardCard
End Command

Command &H80 &H20 ToggleCheckInStatus (Status As Byte)
  SW1SW2 = swStewardCard
End Command

Command &H80 &H24 ResetRoomNumber ()
  SW1SW2 = swStewardCard
End Command

Command &H80 &H26 SetRoomNumber( room )
  SW1SW2 = swStewardCard
End Command

Command &H80 &H28 GetRoomNumber( room )
  SW1SW2 = swStewardCard
End Command

Command &H80 &H30 CardPersonalised ( personalised As Byte )
  SW1SW2 = swStewardCard
End Command
